X-Git-Url: https://git.hcoop.net/clinton/website/site/unknownlamer.org.git/blobdiff_plain/36fbff92b7edb67ac1c4b6502309bc9375533b9c..5480ea57e35757caeaeeb0402b07057a99ae912a:/Metaobject%20Protocols.html

diff --git a/Metaobject Protocols.html b/Metaobject Protocols.html
index ef27539..f629002 100644
--- a/Metaobject Protocols.html	
+++ b/Metaobject Protocols.html	
@@ -274,11 +274,11 @@ enable selective modification of individual facets with minimal code.</p>
   (options) ...)
 
 (<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">generic-name</span> ((parameter type) parameter ...)
-  <span class="emacs-face-string">"documentation string"</span>
+  <span class="emacs-face-doc">"documentation string"</span>
   body)
 
 (<span class="emacs-face-keyword">defgeneric</span> <span class="emacs-face-function-name">foo</span> (bar baz quux)
-  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-string">"Process the baz with the quux capacitor to make the
+  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-doc">"Process the baz with the quux capacitor to make the
 foo widget fly into the sky at warp speed"</span>))
 
 (<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">foo</span> ((bar example) baz (quux capacitor))
@@ -410,7 +410,7 @@ languages to expose a reflective MOP.</p>
 
 <pre class="src">
 (<span class="emacs-face-keyword">defgeneric</span> <span class="emacs-face-function-name">example-inspect</span> (instance)
-  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-string">"Simple object inspector using CLOS MOP"</span>))
+  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-doc">"Simple object inspector using CLOS MOP"</span>))
 
 (<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">example-inspect</span> ((instance t))
   (format t <span class="emacs-face-string">"Simple Object~% Value: ~S~%"</span> instance))
@@ -487,10 +487,10 @@ details to the program.</p>
 <span class="emacs-face-comment-delimiter">;;; </span><span class="emacs-face-comment">Metaclass
 </span>(<span class="emacs-face-keyword">defclass</span> <span class="emacs-face-type">observable</span> (standard-class)
   ()
-  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-string">"Metaclass for observable objects"</span>))
+  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-doc">"Metaclass for observable objects"</span>))
 
 (<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">compute-slots</span> ((class observable))
-  <span class="emacs-face-string">"Add a slot for storing observers to observable instances"</span>
+  <span class="emacs-face-doc">"Add a slot for storing observers to observable instances"</span>
   (cons (make-instance 'standard-effective-slot-definition
                        <span class="emacs-face-builtin">:name</span> 'observers
                        <span class="emacs-face-builtin">:initform</span> '(make-hash-table)
@@ -554,7 +554,7 @@ details to the program.</p>
                                      slot-name)
   (gethash slot-name (slot-value instance 'observers)))
 
-(<span class="emacs-face-keyword">defmethod</span> (<span class="emacs-face-function-name">setf slot-value-using-class)</span> <span class="emacs-face-builtin">:before</span> (new-value
+(<span class="emacs-face-keyword">defmethod</span> (<span class="emacs-face-function-name">setf slot-value-using-class</span>) <span class="emacs-face-builtin">:before</span> (new-value
                                                   (class observable)
                                                   instance
                                                   slot)
@@ -804,12 +804,9 @@ implementation as possible.</p>
     </a>
   </p>
 
-<p class="cke-footer">                         Ruled by the ebb of my oceans                         
-                        Slaves to the dusk and the dawn                        
-                         Your petri dish civilisations                        
-                             Are buried and born                              
+<p class="cke-footer">No, there's nothing here about X, so be quiet.
 </p>
 <p class="cke-timestamp">Last Modified:
-    January 30, 2009</p>
+    January 21, 2013</p>
   </body>
 </html>
\ No newline at end of file